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ABSTRACT 


Tne design and implementation of the NPS LISP 1.35 VERS 1 progmaae 
ming system is descrioed. PS LISP 1.5 VERS 1 is a complete drogimaae 
ming system built around tne original implementation of LISP 1.5 on tne 
IBM 360/67 computer at tne Naval Postgraduate Scnool. Tne new version 
includes a Supervisor and an Editor, as well as tne original LISP 
Interpreter. The VERS 1 system is written in PL/I for time-snaring 


operation on tne IBM 360/67 computer. 
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I. INTRODUCTION 


The NPS LISP 1.5 VERS 1 System is an extension of NPS LISP which 
was developed at the Naval Postgraduate School by Lieutenant Donald G. 
Gentry, USN, and Major John C. Pilley, USMC, and documented in Lieuten- 
ant Gentry's thesis [Ref. 1], dated December 1969. The NPS LISP system 
was an "on-line interactive version of LISP for the IBM 360/67 computer", 
and was written in PL/I to run under the CP/CMS time-sharing system. 
(The CP/CMS time-sharing system is described fully in Reference 5.) 
NPS LISP 1.5 VERS 1 system consists of three modules. 
These modules are; 
1. the Supervisor, 
2 the Editor, 
3. the Interpreter. 
The Interpreter module of the extended system is the original NPS LISP 
system without its supervisor. The Supervisor module is an expansion of 
the NPS LISP supervisor and includes all the latter's functions, while 
the Editor module is an entirely new entity, unique to the VERS 1 system. 
This thesis describes the expansion of NPS LISP into the system 
named NPS LISP 1.5 VERS 1. The development of those features of the 
expanded system which are new or revised is described in detail. It is 
assumed that the reader has access to Reference 1, since the description 
of the Interpreter will not be repeated here. A knowledge of PL/I is 
desirable so that the reader may interpret the statements in the VERS 1 


listing. 


“py, G. Gentry, An Implementation of LIPS 1.5 for the IBM 360/67 
Computer (Monterey, 1969), p. 9. 


As has been noted, such a supervisor incorporates no housekeeping 
functions. If it were to be expanded to include such housekeeping chores 
as an editor and an I/O package, appropriate LISP functions would have to 
be written and incorporated as permanently defined functions in the LISP 
system. In general this poses no problems. For example, Q-32 LISP [Ref. 
3} uses LISP ‘functions for I/O. The elaborate editor of BBN LISP [Ref. 

4) also uses LISP functions for its routines. However, these systems were 
coded in their particular machine language, and hence supervisor functions 
written in LISP were natural. 

NPS LISP was coded in PL/I. This was done because PL/I, being a 
higher level language, "...provides major advantages over a system writ- 
ten in machine code: (1) alterations to the system may be easily made; 

(2) the system may be implemented quite easily on another computer having 
PL/I compiler; and (3) the system is self-documenting to some ex tena 
Another important reason for writing the supervisor and editor in PL/I is 
that most of the LISP memory is still available to the user to store 

list structures and the numbers his programs might generate. Thus a mini- 
mum amount of LISP free storage is taken up by the "nucleus"! of permanent 
LISP functions. 

After having decided to write the expanded supervisor (and editor) 
in PL/I, the next task was to determine just what capabilities to in- 
corporate in the expanded system. 

Much of the motivation for features finally incorporated into the new 
system came from practical experience gained on the terminal with the 
CP/CMS time-sharing system. This motivation, as well as other influences 


\ 
| 


is discussed in the sections that follow. 


Ga tay: per ou: 
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II. THE SUPERVISOR 


HN A GENERAL DISCUSSION OF LISP SUPERVISORS 

The supervisor of any LISP system must perform certain basic func- 
tions. First, it must read in a functional expression (S-expression) 
and its arguments (also an S-expression). Second, it must apply the 
function to the arguments to obtain a value, and, third, it must print 
that value. The basic LISP supervisor is a routine which loops continu- 
ously, while LISP is active, performing these functions. Disregarding 
any system "housekeeping" needs, this basic supervisor meets the minimum 
requirements of a LISP system. 

The NPS supervisor was essentially identical to tne superviser des- 
cribed above. It looped continuously until detecting an ‘END LISP‘ input, 
which caused it to terminate. The NPS LISP supervisor was a routine 
written in PL/I, though, in general, a LISP supervisor is a LISP func- 
tion called EVALQUOTE. An example of a LISP 1.5 coding of EVALQUOTE follows 
which is taken from Weissman [Ref. 2]. The variables $1 and S2 are the two 
S-expressions that the supervisor reads. 

(EVALQUOTE (LAMBDA ( ) (PROG S1 S2 ARGS) 

A (TEREAD) 

(SETQ ARGS NIL) 

(SETQ S1 (READ)) 

(SETA S2 (READ)) 

B (COND ((NULL S2) (GO C))) 

(SETQ ARGS (CONS (LIST (QUOTE QUOTE) ( CAR S2)) ARGS)) 

(SETQ S2 (CDR $2)) 

(GO B) 


C (PRINT EVA], (CONS Sl (REVERSE ARGS) ))) 
(GO A) ))) 


2 
Clark Weissman, LISP 1.5 Primer, (Belmont, 1968), p. 131. 


il 


lea IBM 7090 LISP Supervisor 
In 7090 LISP the EVALQUOTE function is called the interpreter, 


while the supervisor (or monitor) is a separate function called the Over- 
jonas The 7090 Overlord handles the I/0, maintains the system's files 
and handles dumps. Since 7090 LISP receives punched cards as input, the 
overlord is Penne a batch processing supervisor. Its main function 
seems to be that of handling of the five tape drives the 7090 system uses. 


These tapes are listed here by name and function. 


SYSTAP Contains the System 
SYSTMP Receives the Core Image 
SY OLIE Punched Card Input 

SYS POT Printed Output 

SYOErL Punched Card Output 


After the LISP system is called by the LISP loader (two special 
cards), the Overlord takes over and initializes the system. From then on 
the Overlord is in control, checking each card in the input stream to see 
if it is an Overlord direction card. These Overlord cards direct the 
Overlord to perform some specific function or else tell it that a LISP 
deck (called a packet of doublets) follows. The packet of doublets is a 
deck of pairs of S-expressions for the interpreter. The Overlord con- 
tinues as described above until it reads a ‘FIN' Overlord card, at which 
time it halts. 

Uae Q-32 LISP Supervisor 


The 0-32 LISP system is a compiler-oriented rather than an 


ip McCarthy, and others, LISP 1.5 Programmer's Manual (Cambridge, 
1962), p. 80. 
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Interpreter-oriented vateuac ie When run under time-sharing, the user 
sees two modes of operation: the Executive mode and the Object Program 
marie. ° The Executive mode is the mode used to communicate with the time- 
sharing executive and is analogous to CMS when running LISP under CP/CMS. 
The Object Program mode is analogous to the NPS LISP 1.5 VERS 1 Super- 
visor; therefore, it is this mode we wish to examine here. 

The Q-32 LISP supervisor (accessible in the Object Program mode) 
is a function *SUPV "which calls for two S-expressions to be read from 
the teletype, terminates the input buffer, then calls for (PRINT (*EVALQT 
X Y (QUOTE*FUNC))) and loops back to call for two more occieuiee suiane ane 
The prefix * indicates that the function is a basic system function not 
normally useful to the user. The arguments X and Y of *EVALQT are the 
two S-expressions read from the teletype. Thus, despite differences such 
as being compiler-oriented, the Q-32 LISP supervisor is basically similar 
to the general supervisor described by Weissman [Ref. 2]. The function 
*EVALQT, of course, is EVALQUOTE though *EVALQT has three arguments (one 
being required by the Compiler). 

Rather extensive I/O is possible by using special LISP 1/0 
functions. The Supervisor handles these functions in the same way it 
handles the basic LISP functions. The function SAVE (n), for example, 
dumps LISP core in the same manner as the DUMPS command of the NPS LISP 
Supervisor (See Section II.C.3). Thus every Q-32 LISP function is a 


supervisor command. 





5, L. Kameny, LISP 1.5 Reference Manual for Q-32 (Santa Monica, 


19oapep. 7. 
Bb id. DO. 


eae p. 64. 
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For further discussion of the Q-32 LISP supervisor see Section 
4.3 of Reference 8. 

a BBN LISP Supervisor 

BBN 940 LISP is a version of LISP implemented on the SDS 940 
computer by Bolt Beranek and Newman, Inc., [Ref. 4]. It is primarily of 
interest here us of its Editor, which will be discussed in Section 
PLT: 

The BBN LISP Supervisor is called EVALQUOTE and performs the 
standard functions of reading S-expression doublets and executing them. 
Input-Output functions, file manipulation, and editor commands are all in 
the form of S-expressions doublets and are all handled by EVALQUOTE. 


Thus, as with Q-32 LISP, all LISP commands are supervisor commands. 


4. General Functions and Capabilities of the NPS LISP 1.5 VERS l 
Supervisor 


The NPS LISP 1.5 VERS 1 Supervisor is a PL/I program which 
performs the followsing tasks: 

is Calls the LISP initializer to start the system, 

26 Handles the SPECIAL (automatic) OPTIONS requests, 

3. Sets and supervises the two user-oriented modes of 
system operation (i.e., Editor mode or Interpreter 
mode), switching the system from one mode to the 
other as the user requests, 

4. Handles user requested dumps, 


es Loads specialized system files on request, 


6. Calls the Garbage Collector at the request of the 
user, 


Ve Handles the close-out routine when a LISP run is 
terminated by the user. 


These functions, and the Supervisor language, are discussed in 


the sections that follow. The VERS 1 Supervisor is similar to those 
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described above, except that housekeeping chores are peculiar to the 
Supervisor. This eliminates the necessity of the VERS 1 system supporting 
a number of specialized LISP functions. 

In conclusion, I wish to point out that though the 'Overlord' 
of 7090 LISP is essentially a batch processing monitor, it nevertheless 
does for 7090 LISP what the VERS 1 Supervisor does for NPS LISP. It is 
therefore fair to say that the NPS LISP 1.5 VERS 1 Supervisor more closely 
resembles the 7090 LISP system than any of the other systems studies. 
Thus both the VERS 1 Supervisor and Interpreter use the 7090 system as 
a pattern. 

The terminology 'S-expression doublet’ has been borrowed from 
the description of 7090 LISP [{Ref. 7] and will be used in this thesis. 
The description of the VERS 1 Supervisor begins with the following dis- 


cussion of the automatic features. 


B. AUTOMATIC FEATURES OF THE VERS 1 SUPERVISOR 

Experience gained from work on the terminal, using CP/CMS, led to 
the incorporation into the Supervisor of two optional automatic features. 
What follows is a description of these features and a discussion of the 
reasons for their inclusion in the VERS l system. 

It often happens that a user must make so many corrections, dele- 
tions and additions to his input string, that it becomes almost unintel- 
ligible. This fact motivated the first automatic option, the printback 
feature. This feature prints back the string the LISP Interpreter has 
actually received and numbers the first line of each doublet. 

Another feature which seemed desirable, due to sometimes too fre- 
frequent CP "crashes", was an automatic LISP storage saving routine. 


The term "crash" is a popular but descriptive term which refers to an 


1S 


abrupt halt in service due to a malfunction in the time-sharing system. 
The CP time-sharing system is not immune to such crashes. Without an 
automatic dump routine a user would have to reinitialize the LISP system 
and start over again after each crash. This could be very frustrating 
and time consuming. The AUTOSAVE feature was therefore incorporated and 
is described BeTow. Either feature can be abled or disabled at any time 
after initialization of the system. 

Immediately after the system has initialized, the question "SPECIAL 
OPTIONS?" will be typed on the terminal. This is the only time this 
explicit question will be asked. If neither option is desired, the user 
should respond by typing "N'' or ''NONE'. The default condition for a 
"NONE" response is autosave and printback disabled. 

If the user wishes to change his current options, he can do so by 
using the OPTS command. This is a Supervisor command and is discussed 
here since it is used exclusively with the automatic options. The Super- 
visor returns control to the Interpreter after honoring the OPTS request. 

Li OPTS command 
OPTS list 
This command causes the supervisor to change the 
current special options listed in "list." Options 
in "list" (if more than one) must be separated by 
at least one blank. If the "list" is missing, the 


command is ignored. (The commands 'OPTIONS' or 
"OPTIONSS' are also valid. 


Ze PRINTBACK option 
P ( NP ) 


The 'P' command causes each S-expression doublet 
received by the Interpreter to be printed back 
with its sequence number. 'NP‘', typed in the 
"list" of the OPTS command disables the print- 
back feature. 
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3 AUTOSAVE option 


AUTOSAVE [=n] (NAS) 

The autosave feature, which is called by this command, 
automatically dumps LISP memory into file AUTOLISP 
every 5 doublets unless a different line parm value 
has been specified. AUTOLISP is erased during the 
closeout routine called by the user typing ‘END LISP’. 
The bounds on the line parm, n, are: 1¢n£20. 'NAS' 
typed in the "list of the OPTS command erases the 

file AUTOLISP and disables the autosave feature. The 
autosave feature also creates an exact copy of file 
LISPTEXT (the working file of the Editor) each time 

it dumps the LISP memory. This copy is a file called 
LISPTEMP. (For further discussion of these files 

see the following subsection). 

If a CP crash occurs, the version of AUTOLISP and LISPTEMP created 
by the last autosave dump, will remain, unaffected, on the user's disk. 
The user will see a message, reminding him of the existence of these 
files when he reinitializes the LISP system. The user should load these 
files at the first communication from the Interpreter or they will be 
automatically erased. The Interpreter tells the user it is ready by 
displaying ‘CALL EVALQUOTE, ARGS'. 

The PL/I file handling routine IHEFILE® is used to create the files 
LISPTEMP, AUTOLISP, and DUMPLISP. For this reason it is briefly mentioned 
in the discussion that follows. 

a. Files AUTOLISP and DUMPLISP 
The PL/I file handling routine IHEFILE is described fully 
in Reference 5. For our present requirements it is enough to know that 


this routine creates a file on the user's disk by storing an 80 character 


buffer in the file each time the routine is called in the PL/I program. 





Sop /cMS User's Guide (Revised 6.69), Naval Postgraduate School, 
Computer Facility (Monterey, 1969), p. 385. 


UG 


Since this routine is used to create files AUTOLISP and DUMPLISP, an 
immediate problem presented itself. How do we efficiently convert binary 
fixed data (the LISP memory is in this form) into a character string? 
The method chosen for the NPS LISP 1.5 VERS 1 system was to use the com- 
paratively fast UNSPEC” function of PL/I to put the internal representae- 
tion of each word of LISP memory into a 4 character substring of the buf- 
fer. This stores 20 words of FSTOR each time the IHEFILE routine is 
called. Since LISP core is initially set up as a sequentially linked 
list (i.e., the cells are an array called FSTOR, linked by storing in 
each word the array subscript of the next word), there is usually a 
sizeable percentage of LISP memory which consist of adjacent cells con- 
taining numbers in sequence (see Fig. 1). This is especially true if 
the Garbage Collector has not been used and/or the user's program is not 
extremely large. Therefore, to increase the speed of the dump and de- 
crease the size of the storage area required for file AUTOLISP, the fol- 
lowing structure for file AUTOLISP (as well as file DUMPLISP) was adopted. 
The structure of the file AUTOLISP can be thought of in 
two ways. One way is to think of it as a set of 80 character strings, 
each of which was stored from the buffer CARD-BUFFER by one call to the 
IHEFILE routine. (See Fig. 2, Physical Structure.) Thus, to access 
an item, one needs the character string number and the location of the 
item in the character string. The other way of viewing AUTOLISP is as a 
sequential storage area where an item is accessed by knowing its sequen- 
tial address. (See Fig. 2, Sequential Structure.) Both representations 


of AUTOLISP are used by the dump routine. 





I TBM System/360 Reference Manual, International Business Machines 
Corporation (1968), p. 237. 
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The first word of AUTOLISP (bytes 1-4 of the first 80 
character string) is called a Keyword. The first halfword of a keyword 
contains the sequential address of the next keyword. (The "sequential 
address", as opposed to a "physical address", refers to a sequential 
location of a word.) The second two bytes of a keyword contain a number 
C. When the dump routine encounters more than two adjacent words in 
FSTOR which contain sequential numbers, (as for example, FSTOR(1000) 
FSTOR(1001) FSTOR(1002) in Fig. 1), the next available sequential address 
becomes the address of a new keyword and is stored in the first two bytes 
of the last keyword. The first word of the FSTOR sequence (FSTOR(1000) 
in the example above) is then stored following this new keyword. The 
number of words in the sequence, C, is stored in the last two bytes of 
the new keyword. (For clarification see Fig. 3). In this way storage 
time and area can be minimized. Of course if most of LISP memory is 
active or if it has been reshuffled due to numerous garbage collections, 
the advantages of this system will be minimized. 

A discussion of the other files affected by the dump 
routine follows. 

eye Files LISPTEXT and LISPTEMP 

File LISPTEXT is the file used by the Editor. Each doublet 
input by the user is stored in LISPTEXT in sequence with its sequence 
number in the first byte of the first line. The input is stored, starting 
with line 2 of LISPTEXT. The first line of LISPTEXT is used for two pur- 
poses, storing certain values which are required by the load routine and 
storing a code-byte (C-byte) used by the Supervisor. The C-byte is the 
first byte of the first line. The possible values of the C-byte and 


resulting Supervisor actions are given in Table I. 
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The values stored on line 1 of file LISPTEXT are stored 
there by the DUSAVE PL/I routine called each time a dump occurs. (DUSAVE 
is called by both the autosave feature and by the DUMPS command.) These 
are the values of certain PL/I variables which are listed in Table II. 

The C-byte is set by various Supervisor routines. The 
PL/I listing of these routines can be found in APPENDIX C. (The major 
PL/I modules which make up the VERS 1 system are LISPA, LISPB, LISPC, 
LISPD, LISPE, LISPF, LISPG, and LISPP. Each module is listed in AP- 
PENDIX B with its major function.) The C-byte is set to the value ‘lL’ 
by: 

1. The close-out procedure if its value is '2' when that procedure 
is entered. The close-out procedure is located in LISPA fol- 
lowing the lable TERM, 

Dis The procedure which handles the ‘OPTS NAS‘ input. This pro- 
cedure disables the autosave feature and is located in LISPA 
following the label SCN1. 

ay The file LISPTEXT handler, when the first S-expression doublet 
is entered and the autosave feature has not been enabled. 

This routine follows entry point TEXTWRK in LISPA. 
The C-byte is set to ‘'2' by two routines. The first is the routine which 
processes the ‘AUTOSAVE' command. This procedure is located in LISPA 
following the label SCN1. The second is the TEXTWRK routine of (c) above. 
This routine will set the C-byte to ‘'2' when the first doublet is input 
if the autosave option has been chosen. The value '3' is set by the 
routine which processes the DUMP$ command. This routine is located in 
LISPA following the label CMD. 

Since the file LISPTEXT contains the current C-byte value, 
some version of it resides on the user's disk at all times. The message 


telling of the existence of file LISPTEXT actually refers to the exist- 


ence of file LISPTEMP, an exact copy of LISPTEXT at the time of the dump. 


Ze 


TAB Lee 
FILE LISPTEXT FLAG VALUES AND 
CORRESPONDING SUPERVISOR ACTION 
C-byte VALUE MEANING SUPERVISOR ACTION 
Previous exit from LISP reinitializes 


i system was normal and LISPTEXT 
no dump was requested 


Previous exit from Prints message: 

Z LISP system was ab- Wee = PO ol oP een 
normal with AUTOSAVE AND AUTOLISP 
option enabled. ih @L Sap" 

A dump was requested Prints message: 
s before previous exit fao—FTLES LISPTEXT 
from LISP system AND DUMPLIST 
EXIST--" 
File LISPTEXT does not Initializes file 
any other exist in a usable form lor rexT 
value on the user's disk. 
TABLE Il 


PL/I VARIABLES STORED IN FILE LISPTEXT 


PL/I VARIABLE FUNCTION POSITION te) 


LCOUNT S-expression doublet counter (2aa") 
CARDNOI Next available line in LISPTEXT (6,4) 
ESTART Pointer used by the Editor (10,4) 
EFSTOR Last cell in Free Storage (14,4) 
FREE First cell in Free Storage (20,4) 
BNUM Next available cell for numbers s.Om4) 


Sebecation in character string: f=position of first 
character of substring, l=length of substring 
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Thus, though the user may 'LOAD$ LISPTEXT', the file that is actually 
loaded is LISPTEMP. The only time confusion may occur is if the user 
wishes to edit the LISPTEXT he has dumped, using the CMS editor (See 
Ref. 5). He must then be sure to 'EDIT LISPTEMP DATA'. LISPTEMP does 
not exist on the user's disk if no dump has occurred. 

| The foregoing discussion of the VERS 1 special files con- 
cludes the subsection concerned with the automatic features of the Super- 
visor. These files will be mentioned frequently in the sections that 


follow. The next subsection describes the various Supervisor commands. 


C. SUPERVISOR COMMANDS 
As pointed out in Section II.A, all Supervisor commands end in the 
symbol '$'. The user issues all Supervisor commands in response to the 
standard "ready" of the interpreter. (See Section II.B.3.) The syntax 
analyzer, entry point NREAD of LISPC, scans the first S-expression, 
recognizes that the first S-expression is an atom ending in a 'S$' and 
alerts the Supervisor. The Supervisor then takes control, scans the com- 
mand and takes the appropriate action. The Supervisor commands and their 
effects are listed below. The PL/I routines that implement these com- 
mands are located in LISPA unless otherwise specified. (See APPENDIX C 
for a listing of LISPA,) 
1. OPTS See Section II.B.1. 
2. EDITS | 
EDITS 
In response to the EDIT$ command, the supervisor gives 
control to the LISP Editor. The Editor will respond by 
typing ‘EDIT LISP'. It is then ready for an input from 
the user. (The command 'ES' is also valid.) 
3. DUMPS 


DUMPS 
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The DUMPS command tells the Supervisor to dump LISP 
memory into file DUMPLISP which is erased automatically 
by the next DUMPS command or after it is loaded by the 
LOADS command. 


The file LISPTEXT is also saved by the DUMPS command as well as the 


values of the PL/I variables ESTART, FREE, BNUM, LCOUNT, EFSTOR, and 


CARDNO 1! which are needed to restore memory (See Section II.B.3.(b)). 


The DUMPS routine uses the PL/I procedure DUSAVE, an entry point in 


LISPF, which is also used by the AUTOSAVE option. (See APPENDIX C.) 


Since files DUMPLISP and AUTOLISP have the same structure, the dis- 


cussion of file AUTOLISP in Section II.B.3. applies also to file DUMPLISP. 


Upon initialization of the LISP system, if DUMPS was used on the pre- 


vious run (and hence files DUMPLISP and LISPTEMP are on the user's disk), 


the user will be warned of this fact by a message (See Table I). 


4. 


5. 


oie 


LOADS 
LOADS filename [filename] 


The LOADS command loads "filename" into LISP memory 
except when "filename" is LISPTEXT. In this case 
LISPTEMP is loaded and renamed LISPTEXT, If more 
than one file is loaded, the filenames must be separ- 
ated by at least one blank. During the load, a 
message will be displayed, telling which file is 
currently being loaded. 


QUITS 
QUITS 


The QUITS command causes the Supervisor to take control 
from the interpreter, delete what has been typed of the 
S-expression doublet being input, reinitialize the 
Interpreter and return control to it. The Editor is 
also told to remove the same input from LISPTEXT, 

(QS is a recognized abbreviation). 


COUNTS 


COUNTS 
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The COUNTS command causes a count to be made of the 
number of free cells in LISP memory. The result is 

a message from the Supervisor, CELLS IN FREE STORAGE: n 
CELLS AVAILABLE FOR NUMBERS: Mm 

where n and m are decimal numbers. 


7. COLLECTS and COLLECTNS 
COLLECTS 
This is the call to the Garbage Collector, which will 
collect in both main storage and number storage. For 
discussion of the Garbage Collector and LISP memory 
structure see Section IV.B. 


COLLECTNS 


In response to the COLLECTN$ command the Garbage 
Collector will collect only in number storage. 


This concludes the discussion of the Supervisor. The following 


section describes the NPS LISP 1.5 VERS 1 Editor. 
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III. THE EDITOR 


A, EDITING LISP PROGRAMS IN AN INTERACTIVE ENVIRONMENT 

The editor of the CP/CMS system is one of that system's most used 
features. This is natural since one of the prime advantages of an inter- 
active system is the ability to correct mistakes as soon as they are 
detected or to make program changes in an environment which allows al- 
most immediate analysis of their effects. These factors motivated the 
design of NPS LISP 1.5 VERS 1 Editor. Other systems studied were 7/090 
LISP, BBN LISP, Q-32 LISP and the implementation of the Georgia Tech 
LISP interpreter at the University of Washington. It was evident that 
little had been documented in the field of LISP editors. Of those studied, 
the BBN LISP editor was the only system with an editor. It is summarized 
below. 

A fundamental difference between the NPS LISP 1.5 VERS 1 Editor and 
the BBN system must be emphasized. The editors of all LISP systems have 
S-expressions as the data on which they operate. The difference between 
the VERS 1 Editor and the others is found in the structure of the S- 
expressions. The other systems operate on S-expressions which are stored 
as lists (their tree structure). The editor commands of these systems 
are LISP functions which traverse S-expression trees and "edit" using 
LISP primitive functions to alter the structure of these trees. There 
are certain obvious advantages to this type of editor. Some of these are 

“ all editor commands are LISP functions, 


“ the structure of data for the editor is the same as for the 
the supervisor and interpreter, 


= an operation on an S-expression directly alters the structure 
of that S-expression. 
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The VERS 1 Editor operates on the material stored in file LISPTEXT. Here 
S-expression doublets are stored as character strings, the form in which 
they were input. The VERS 1 Editor commands are not LISP functions; 

they make up a separate language. Finally, an operation by the VERS 1 
Editor alters the character string structure of a doublet in LISPTEXT, 


Nree 


not its list structure in LISP memory. Hence the doublet must be 
computed'' by the Interpreter after editing, for the editing to have ef- 
fect. 

Before going into detail on the VERS 1 Editor, it would be instruc- 
tive to look at the BBN LISP editor. This editor is rather sophisticated 
and the next subsection is concerned exclusively with some of its fea- 
tures. 

es BBN LISP Editor 

The BBN LISP Editor is an extensive and distinct subsystem 
of the BBN LISP system. It "allows rapid, convenient modification of 
list structures. Most often it is used to edit function definitions, 
often while the function itself is runnineeae It has many functions, 
allowing the user a choice of ways to accomplish a particular editing 
requirement. The editor commands are short, usually consisting of a 
single character. 

The BBN LISP Editor operates directly on list structure. 
The particular list that is to be edited is indicated in the call to the 


editor. For example, 


EDITF (APPEND) 





10 
D. G. Bobrow, and others, The BBN 940 LISP System (1967), p. 40 
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would bring the editor on line and specify the function definition of 
APPEND as the list to be edited. There are four different commands for 
calling the editor, depending on the type of list structure to be edited. 
The basic function, for editing S-expressions, is the function EDITE. 
The other three are 

Le EDITV, for editing values 

ag EDITF, for editing function definitions, and 

BY EDITP, for editing property lists. 
These functions confine their attention to only one list at a time, 
usually the sublist of some major structure. Changes may be made only 
to this particular sublist. "Commands thus fall naturally into four 
classes: moving around the last structure; making changes in the current 
list; printing parts of the list being edited; and entering and leaving 
the Bator. "'! 

a. List Traversal Commands 

List traversal is accomplished by typing a number n to 

indicate the nth level from the top of the main list structure which is 
to be examined. A '‘'en' examines the nth sublist starting from the end 
of the main structure and counting back n sublists. The command ¢ re- 
establishes the top level of the main structure as being current. To 
traverse from a current sublist one can use the command (NTH n) which 
uses the current sublist as a starting place and causes the nth sublist 
from that point to become current. The command 'P' is used to print the 
current list. If the current list is the main structure, a LISP represen- 


tation of the entire structure will be printed. The command (F e) searches 


11 
Ibid, p. 41. 
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for an occurrence of e in the current list, where e is any S-expression. 
The number 0 causes the previously current list to become current. These 
commands allow great flexibility in traversing list structures. Even 
greater flexibility is obtained by a function MARK which allows the user 
to mark the current state. He may then return later by typing < which 
returns him to the last mark without erasing the mark or by «<< _ which 
does the same thing, but erases the mark. 

COPY and RESTORE are the last two list traversal commands 
which will be specifically mentioned. Since every change made is made 
directly to the internal list structure, the COPY command can be issued 
before changes are made. This copies the "current state of the edit", 
so that the user may later restore the system to its previous state by 
issuing a RESTORE command. 

b. Modification Commands 

The capabilities of inserting, replacing and appending 
list structures is provided by the three commands, (-n CLreoes@ )s 
(n @pr---e ) and (Ne 


se) where e --,@ are S-expressions. 
m 


pp’ I" 
The 'n's are integers which indicate the nth sublist from the current 
one. Thus (-1 ABC) would insert ABC before the current sublist, and 

(2 ABC) would replace the 2nd sublist from the current sublist with ABC. 
The ‘N' is used to append S-expressions. To delete, use the replace 
command with no replacement S-expression specified. The command (R ey e,) 
replaces all occurrences of list e1 with en in the current list and all 
sublists. 

Direct alteration of the list structure itself is also 


possible. This is done with commands such as LO (take Left paren Out), 


BO (take Both parenthesis Out), (RO nm) and (RI nm). The last command 
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(RI nm) will be illustrated. Consider the list (A B(C D E) F G). If 
we want to bring the D and E up to the level of A BF G and leave (C) 
as a sublist, we could use 
(RI 3 1) 
which means move the Right paren at the end of sublist 3 In to sublist 
3 and place it after sublist l of sublist 3. The results is the list 
(AB (C) DEF G). 
c. Printing Commands 

The command P which prints the current list, showing only 
one level of nesting, was presented in subsection a. To print a selected 
sublist without changing the current state of the edit, a (P n) command 
could be used. This would print the nth sublist from the current one. 
(P nm) prints the nth sublist to m levels of nesting. Finally, (E c) 
prints the sublist c without changing the state of the edit. 

The BBN LISP editor is a highly sophisticated subsystem. 
A good knowledge of LISP 1.5 is required to use it. It has the dangers 
which result from being able to directly alter its memory, but the ad- 
vantages of speed and versatility far outweigh any disadvantages. 

A general discussion of the NPS VERS 1 Editor follows. 

on NPS LISP 1.5 VERS 1 Editor 
The NPS LISP Editor performs the following functions: 
je Prints S-expression doublets, 


oe: Changes the character string representation of 
S-expressions, 


i). Recomputes specified doublets, 


4. Lists atoms, functions, or special forms from 
OBLIST, 


se Deletes atoms and functions from OBLIST. 


ork 


All but the last two of these functions depend upon LISPTEXT. 
The last two functions are performed by traversing OBLIST, 

Every doublet entered into the VERS 1 system is stored in 
LISPTEXT. The Editor accesses a particular doublet by traversing a list 
to locate that doublet's sequence number. The pointer to the head of 
this list ie cee PL/I variable ESTART (See Table II). Each doublet 
entered by the user is assigned a unique number. This number is stored 
in the CAR of a word in FSTOR whose CDR is another word in FSTOR. The 
CAR of this second word is the line number in LISPTEXT of the first line 
of the doublet. Thus, to find doublet number, n, the Editor traverses 
the ESTART list, starting at ESTART. If CAR(ESTART) is not equal ton 
then it checks CADDR(ESTART), and so on until n is located. The required 
line number in LISPTEXT is the CADR of this cell. To operate on this 
doublet, the Editor would then read this line into CARD-BUFFER using the 
IHEFILE routine. An obvious disadvantage of this system is that only 
part of a doublet can be worked on at any instant. Thus the CHANGE func- 
tion requires that all changes be made, one line at a time, not allowing 
part of a field to be on one line while the remainder is on the next. 
When all changes are made, the changed doublet must be recomputed before 
the changes have any effect upon the LISP list structure. This is one 
advantage, since ill-conceived changes will not take immediate effect, 
as in the BBN Editor. 

The commands which make up the language of the NPS VERS 1 


Editor are listed and discussed in the section that follows. 


Be EDITOR COMMANDS 
The Editor initially tells the user it is on-line by typing the 


message ‘EDIT LISP’. The Editor will remain on-line until it receives 
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the 'RET‘ command or the 'END LISP' command. Any user error in issuing 

an edit command will result in one of two responses by the Editor. 

Either the Editor will ignore the faulty edit command and wait for another 
input, or it will type an error message and wait for another input. See 
APPENDIX A for the error messages. The Editor commands are discussed be- 


low. 


Ls RET (RETURN) 


RET (RETURN) 


The RET command returns control to the Interpreter 
through the Supervisor. When this is done the user 
will see the standard Interpreter challenge, 

'CALL EVALQUOTE, ARGS:' typed on his terminal. 


Dus PRINT 
P (PRINT) n[{,m] 


The PRINT command tells the Editor to find S- 
expression doublet number ''n'' and display it. 

A pointer, used for the CHANGE function, is 
also positioned at this doublet. If "m" is 
specified then the m-l following doublets will 
also be displayed (for a total of "m'' doublets). 
If this is the case, the CHANGE pointer will be 


pointing to the last doublet displayed. 
Bi CHANGE 
c (CHANGE) /stringl/string2/ 


The CHANGE function replaces the first occurrence 
of stringl by string2, in the last doublet printed 
by the PRINT command. It does this by searching 
each character string, belonging to the doublet, 
for an occurrence of stringl. The first character 
string of the doublet is indicated by the pointer 
set by the PRINT command (See PRINT above). When 
the string "stringl'' is located, it is replaced by 
the string "string2". If stringl" and "string2"' 
are of such length as to cause the new string to 
exceed 80 characters (the length of the character 
strings in LISPTEXT), an error message will be 
displayed. (See APPENDIX A) Note that "stringl" 
must reside in only one character string of LISPTEXT. 
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It will not be recognized by the ‘'C' function if 

part resides in one string while the remainder 
resides in the next character string of LISPTEXT,. 
Because of an implementation restriction, the maximum 
length of “stringl" is 35 characters. 


4. RECOMPUTE 
R (RECOMPUTE) n 
The command, RECOMPUTE, causes an S-expression 
doublet ‘n'' to be fed to the Interpreter as an 
input. It obtains the same results as a direct 
input to the Interpreter. 


Die LIST 


LIST type 





The LIST command tells the Editor to search OBLIST 
and print the names of all items stored there with 
the characteristic "type". The three allowable 
“type” designators are 

A (ATOM) , 

F (FUNCTION) , 

S (SPECIAL FORM). 
The Editor will display the items in the order in 
which they appear in OBLIST, along with any indicators 
they might have on their property lists (except 
PNAME and user defined indicators). Since these 
lists can be long, and displaying them can be time 
consuming, a feature has been incorporated which 
allows the user to terminate the listing process. 
After 20 names are displayed, the Editor will ask 
the question ‘CONTINUE?’ to which the user must 
answer either ‘Y' or '‘'N'. 


6. DELETE 
D (DELETE) name 
The DELETE command results in a search of OBLIST 
for the name “name". It is deleted from the system 
when it is found. If it is not found a message is 
printed to that effect. 
The discussion of the Interpreter, which follows, is primarily 
concerned with two items. One item is the Garbage Collector and the 


other is a slight modification of LISP memory necessitated by the imple- 


mentation of the Garbage Collector. 
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IV. THE INTERPRETER 


A. GENERAL DISCUSSION 

In Section IV of Reference 1, Lieutenant Gentry made several recom- 
mendations for improvement of the NPS LISP interpreter. The primary 
concern here is the description of the implementation of one of those 
recommendations, the Garbage Collector. The Garbage Collector required 
a slight modification of the NPS LISP memory structure. This modifica- 
tion is explained in the next subsection in conjunction with the Garbage 
Collector. 

The recommendations for future expansion, mentioned above, fell 
under four major headings. These were, Garbage Collection, Arithmetic 
Functions, Functions with Functional Arguments and the Prog Feature. 

The final three of these recommendations have not been investigated and 
therefore remain unimplemented. 

Besides the changes which will be discussed in the next subsection, 
an error recovery routine and its error message has been added. This 
routine is called when the user uses too many right parenthesis to close 


the first S-expression of a doublet. (See APPENDIX A) 


B. NPS LISP MEMORY ORGANIZATION AND THE GARBAGE COLLECTOR 

The previous NPS LISP memory structure, discussed in Section III.A.6. 
of Reference 1, was adequate for that system's needs. As long as there 
was no garbage collector, handling LISP storage as a Linked List, (See 
Fig. 4(a)) the previous system worked very well. The old scheme was 
to store numbers from the ''top'' of memory, working down, while allocating 
"up" for List structure. This sequential allocation scheme is not compat- 


ible with an efficient garbage collector (one based on a linked allocation 
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scheme). Consequently, a few minor alterations were made to change the 
structure to that shown in Figure 4.(b). Up to the time the user acti- 
vates the Garbage Collector for the first time, the new storage scheme 
is apparently identical to the old. After garbage collection, however, 
the new structure becomes evident, with list structure storage linked 
and number SOOT sequential. 

The NPS LISP 1.5 VERS 1 Garbage Collector is relatively simple and 
was built as part of the Supervisor (See Section II.C.7.). It is called 
explicitly by the user who may determine the necessity of garbage col- 
lection by using the Supervisor command COUNTS (Section I.C.6.). Gentry 
recommended a warning system in conjunction with this (user called) 
garbage collector. This warning system would periodically count the 
calls in free storage and issue a warning if free storage became 
“dangerously close to becoming aay he This warning system was not 
incorporated and the user must use the explicit COUNTS command to deter- 
mine how much free storage remains. The Garbage Collector is called by 
the command COLLECTS, at which time the.two active lists are traversed 
and marked. These two lists are (1) the OBLIST and (2) the ESTART list. 
The OBLIST is fully described in Reference 1 (Section III.A.5.). It is 
sufficient to note that, through the OBLIST, the Garbage Collector can 
get to every active atom and its property list. 

The ESTART list is a list used by the Editor and is made up of pairs 
of words. The CAR of the first word is an S-expression doublet number, 
and the CAR of the second word is the corresponding character string 


number in file LISPTEXT. Each active cell is marked by placing a ‘'1' 


Fe canteen p. 52. 
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NPS LISP 1.5 VERS 1 
OLD LISP STRUCTURE STRUCTURE 
(a) (b) 


MFSTOR 
<—1+16000 
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. Died BNUM > j Allocation 
NUMBERS 
NBASE (unoccupied) 
FREE 
STORAGE 
(unoccupied) 
LISP STORAGE 
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FIGURE 4 


IMPROVED LISP MEMORY STRUCTURE 
SHOWING OLD AND NEW STRUCTURE 
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in the 17th bit (which is otherwise '0'). The Garbage Collector then 
starts at the cell sequentially following the last cell in OBLIST 
(FSTOR(127)) and progresses sequentially through LISP storage until 
reaching NBASE (the base of the number storage area). Along the way, 
every cell is checked for a '1l‘ in the 17th bit. If it is marked, it is 
then omacCanicene '1' is replaced with a '0'). If the cell is unmarked 
it is linked to end of free storage. The value of the PL/I variable 
FREE is unchanged, but the value of EFSTOR is changed to the address of 
the last cell linked up. The Garbage Collector then sets BNUM equal to 
MFSTOR (See Fig. 4) and resequences the number storage area. This opera- 
tion of collecting in the number storage area can be called separately 
by use of the Supervisor command COLLECTNS (See Section II.C.7.(a)). 

The final section of this thesis is a brief look at future expan- 
sion possibilibies. I have only indicated areas of possible development, 


omitting details. 
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V. RECOMMENDATIONS FOR FUTURE EXPANSION OF THE 
NPS. LISP 17> VERS LuSYs iM 


The four main areas for expansion, listed by Lieutenant Gentry in 


Reference 1, were: 


Lz Garbage Collection, 
2s Arithmetic Functions, 
Bi Functions with Functional Arguments, 


Be The Prog Feature. 
Of these four main areas, only the Garbage Collector has been implemented. 
The others were expansions of the Interpreter specifically, and were not 
attempted in the development of the VERS 1 system. These recommenda- 
tions remain for future development, since the expansion of the arith- 
metic functions, the inclusion of the ability to handle the PROG feature 
and functions with functional arguments, would greatly enhance the 
capabilities of the present Interpreter, 

Although the Supervisor, handles the special dump files, it does 
not have a true I/0 capability. One recommendation would be that the 
Supervisor be expanded to handle user defined files, 1/0 to tape drives, 
and output to a print file for use with the printer. The Q-32 system 
has extensive 1/0 capability. This system could be studied and some 
of its features perhaps implemented as part of the VERS 1 Supervisor. 
Another helpful feature would be a short IBM 360 Assembler Language 
routine which would print the S-expression doublet number instead of 
the standard ' ', which follows the ‘CALL EVALQUOTE, ARGS:' message. 
This routine would be called each time the first line of a new doublet 


is input. 
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The present Editor provides the basic functions required of an 
editor. However, a study of the BBN editor is sure to reveal specific 
functions which would be profitable if implemented on the NPS LISP 
Editor. One example is the multiple change feature. If present, this 
function would locate every occurrence (in a doublet) of the string to 
be replaced, a replace it with the new string. 

In conclusion, the first version of NPS LISP 1.5, (VERS 1), meets 
all the basic requirements of an interactive LISP system under the CP/ 
CMS time-sharing system. Moreover, its structure permits easy expansion. 
Therefore, it is hoped, future versions of NPS LISP 1.5 will not be 


restricted by any design feature of the present NPS LISP 1.5 VERS 1. 
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APPENDIX A 


NPS LISP 1.5 VERS t ERROR MESSAGES 


SUPERVISOR: 
S1: COMMAND NOT RECOGNIZED, TRY AGAIN 


Special option request is not recognizable. 
Check Section II.B for proper format. 


System Action: Ignores faulty command and waits for 
next try. 


S2: SUPERVISOR COMMAND NOT RECOGNIZED 
A regular Supervisor command (one ending in a '$') 
was not recognizable. Check Section II.C for proper 


format. 


System Action: Ignores faulty command and returns 
control to the Interpreter. 


SAl: LINE PARM OUT OF BOUNDS 
AUTOSAVE = 


The line parm, n, is out of bounds or not a number. 
The bounds on the line parm are 1£né& 20. 


System Action: Ignores the faulty line parm and calls 
for a new line parm input by displaying 'AUTOSAVE=' 
and waiting for a reply. 


SA?: AUTOSAVE DEFAULT VALUE ASSUMED 


The second line parm input is out of bounds or not a 
number. 


System Action: Assumes default value for line parm. 
Default value is 5. 


UNNUMBERED: FILE NOT FOUND 
This reply to a LOADS file name command indicates file 
"filename'’ is not on the user's disk. Check for in- 


correct spelling of "filename". 


System Action: Returns control to the Interpreter. 
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INTERPRETER: 


Il: 


EDITOR: 


El: 


EZ 


E3? 


PARENTHESES ERROR 


There are too many right parentheses closing the first 
S-expression of the doublet being input. 


System Action: Deletes the part of the doublet already 
input and sets up for the next doublet to be input. 


EDIT CALL NOT VALID, TRY AGAIN 


The call for the particular Editor function desired was 


not recognized. See Section III.B for proper Editor 
calls. 


System Action: Editor ignores faulty call and waits for 
next try. 


NO S-EXPRESSION ENTERED 


The call to ‘PRINT n‘' or ‘RECOMPUTE n'‘ was made with not 
only doublet '"n" not in the system, but no doublets 
entered. Perhaps a LOADS command was not issued or the 
"filename" was not the one desired. 


System Action: Editor ignores call and waits for the 
next one. 


S-EXPRESSION NUMBER NOT FOUND 


The call to 'PRINT n' or 'RECOMPUTE n' was made with 


doublet 'n' not in the system. Check for the correct 


tht i 


System Action: Editor ignores call, waits for next one. 


E3A: FORMAT ERROR: PRINTING S-EXP NUMBER ''n" 


E4: 


The call to ‘PRINT n,m' was incorrectly formatted. 
Check for the omission of a comma or of "m". 


System Action: Prints doublet '"n". 
ILLEGAL EDIT COMMAND 
The Editor call was correct, but the rest of the call 


was unrecognizable. Check for incorrect '‘CHANGE' call 
format. 
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System Action: Editor ignores call and waits for the next 
one. 


E5A: 'TYPE' PARAMETER MISSING 


On a ‘LIST type‘ call the "type" parameter was left off. 
Try again. 


System Action: Editor ignores call and waits the next 
one. 


E5B: 'TYPE' PARAMETER NOT RECOGNIZED 


On a ‘LIST type’ call the "type" parameter was not a legal 
one. Check Section II.B.5 for legal "type" parameters. 


System Action: Editor ignores call and waits for next 
one. 


E6A: FIELD NOT FOUND 


On a 'CHANGE /stringl/string2/' call the field "stringl" 
was not found in the doublet pointed to by the "change" 
pointer. This pointer is set by the ‘PRINT n‘ call. 
Check Section III.B.5 for details. 


System Action: Editor waits for next call leaving the 
"change" pointer unmoved. 


E6B: TRUNCATED 


On a ‘CHANGE /stringl/string2/' call the field "string2" 
is longer than "stringl'' and the change has caused the 
file LISPTEXT character string, which now contains 
"string2"' as a substring, to exceed 80 characters in 
length. The excess characters have been dropped on the 
right. 


System Action: Editor makes the change truncating on the 
right and waits for next call. 


E/7: ATOM NOT FOUND 


On a 'DELETE name" call the atom "name" was not found in the 
system. 


System Action: The Editor waits for the next call. 
UNNUMBERED: FIELD TOO LONG 
This reply to a 'CHANGE /stringl/string2/' call means that 


the field of "stringl'’ exceeds 35 characters, the maximum 
field length for "stringl". 


System Action: Editor waits for next call. 
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APPENDIX B 


MAJOR PL/I BLOCKS AND 
THEIR FUNCTIONS 


ENTRY POINTS 
MAJOR BLOCK ~ AND LABELS 


LISPA LISPA is the Supervisor. 
SCNT: The Special Options routine. 
LOOP: The basic supervisor toutine 
analogous to EVALQUOTE in 
other systems. 


TERM: The exit point from the system. 


CMD: The routines following this 
label handle the Supervisor 
commands. 


TEXTWRK: A function called by several 
routines but used primarily by 
the Editor. It stores doublets 
in LISPTEXT and reads lines of 
LISPTEXT into CARD BUFFER. 


TSAVE: Copies LISPTEXT into LISPTEMP., 


LISPB LISPB contains LISP subroutine 
functions. The entry point names 
are the names of the LISP functions 
with an 'N’ prefix. 


LISPC LISPC contains the syntax and lexical 
analysis functions.. 


NREAD: Reads in an S-expression, and sets 
up the list structure required by 
EVALQUOTE. (It manages OBLIST in the 
process). 


INCWRK: Handles the storing of input lines 
in LISPTEXT, the incrementing of 
the autosave counter, and printback 
if that option has been chosen. 


SCAN: The entry point for the routine that 


reads in a line and carries out the 
lexical analysis of that line. 
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ENTER: Enters an atom into OBLIST after HASH 
has returned the atom's OBLIST number. 


HASH: Hash codes atoms to obtain their OBLIST 
number. 
LOOKUP: Looks to see whether or not an 


atom is stored in OBLIST. 


ISPD: LISPD is the Interpreter, the Print 
and Trace and FSUBR functions. 


PLSPE: LISPE is the initialization routine, 


EISePY : LISPF contains the reader, the Garbage 
Collector and the dump and load 
routines. 

READER: The read routine. It displays what- 
ever string it has been passed and 
receives the input into whatever 
buffer has been designated by the 
calling routine (usually the 72 
character string BUFFER). 


DUSAVE: The dump routine for LISP memory. 

LOADER: The load routine for files AUTOLISP 
and DUMPLISP. 

COLLEGE. The Garbage Collector. 

LIS PG LISPG is the NPS LISP 1.5 VERS 1 
Editor. 

EA: The routine which handles I/O with 
the terminal and analyzes the user 
input. 

El: The PRINT routine. It is also used 
by the RECOMPUTE routine. 

EZ: The LIST routine. 

Eo. The CHANGE routine. 

E4: The DELETE routine. 

Es: The RECOMPUTE routine. 

LESPP: LISPP contains all the primitive 


LISP functions. These correspond 
to the entry point names without the 
'N' prefix. 
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APPENDIX C 


LISTING OF THE NPS LISP 1.5 VERS 1 SYSTEM 


PROC OPTIONS(MAIN); 
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Tf PN=NIL THER 
OC; VAL2=NIL; GG TO EXAPs; END; 
IF NATOM(FN) =T THEN 
/* LOOK FOR BINDING OF FUNCTION ON PROP. LIST ¥/ 
DO: FNCTN=PRNAME(FN) § 
J*SUBR¥/ NSUBR=NGET (FN, SUBR ) 5 
IF NSUBRa=NIL THEN 
DOs TF NPROP(FNyFLAG,NILIm=NIL THEN TRACEL=1 
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GO TO EXAP$ END; 
J*¥EXPR*/ NEXPR=NGET (FN, EXPR) 
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DOs CALL PTRACECFNCTN, ARGS, NIL NIL »ONEGI 
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END: 


"RETURN('O' 8B); 


RNC *1°B)s 
ENTRY BIT (LL) 


ENTRY BIT(1); 


SCNA: 


COMPARE: 


® 
9 


,LEN) & — 


DO_BUFFER,PTR1,LEN) THEN RETURN('1°B) 


ENTRY BIT(1); 
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END 


GOTO EA; 


RETURNS (BIN FIXED), 
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LENL=NCORILENL) 5 
0 
N 
= 


mnt LL td ed COLL 


ENTRY; 


GBUFF : 


LE+1;5 


LE= 


TEXTWRK(LE) 5 


END LISP 
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PRQC 3 


LISPP: 





/* LISP PRIMITIVE (ELEMENTARY) FUNCTIONS */ 
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RCUNSPEC(CNA) 517+16)3 


XED BINS 
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CELL IN FREE STORAGE */ 


e 
s ] 


BIN: 
SPECLESTORI(CA) ) 51516) 


FSTOR(CD) 3517516) 
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YI=FSTOR(NCOR(KEQ) ) 


RETURN(F) ; 


x / 


VALUE IS JCA 
LY111111°B; 
916) 


1 
A 
C 


WITH KCA 
0 
S 
N 


ww <I © (CH ee 
miIYyYO mcf 


XMNOQOMM = 
PUM OO~w eZ 
ZTOo~ ti It Nad 
Od NANNOD 
2 ad EO) Fe 
— OF ON MOM 
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oc oe 


ENT 
/* 


NRPLACA?: 


ay, 
UNSPEC(KCD);$ 


VALUE IS JCD 


owt (1) bm wer (1) 0 
am QS om O 


SIO —~ Zz 


NRPLACD 


END LISPP; 
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APPENDIX D 


USING THE NPS LISP 1.5 VERS 1 SYSTEM, AN EXAMPLE 


gmp peasameseed socsmnesnooeslt scidiehinbnamseoenioadateegeeaiianseemmanm / 


EXECUTION BEGINS 


SEE 


--FILES LISPTEXT AND DUMPLISP EXIST-- 
NPS LISP 1.5 VERS 1 INITIALIZING 


SPECIAL OPTIONS? 
n 


CALL EVALQUOTE, ARGS: | 

Load$ lisptext dumplisp | 
LOADING LISPTEXT . 
LOADING DUMPLISP 
CALL EVALQUOTE, ARGS: 
_revs (a b) 


VALUE IS: 
(B.A) 


CALL EVALQUOTE, ARGS: 

_count$ 

CELLS IN FREE STORAGE: 14509 
CELLS AVAILABLE FOR NUMBERS: 300 
CALL EVALQUOTE, ARGS: 

_dump$ 

CALL EVALQUOTE, ARGS: 

_collect$ 


CALL EVALQUOTE, ARGS: 


_count$ 
CELLS IN FREE STORAGE: 14531 
CELLS AVAILABLE FOR NUMBERS: 300 
CALL EVALQUOTE, ARGS: 

es 


EDIT LISP 


mwPn 1 2 
1 CONS (A B) 
2 DEFINE (( 


(REVS (LAMBDA (X Y) (CONS Y X))) )) 
3 «REVS (A B) 


_c /a b/(a b) c/ 
3 —- REVS ((A B) C) 





ie 9 
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VALUE IS: 
(C A B) 


_ret 

CALL EVALQUOTE, ARGS: 
_dump$ 

CALL EVALQUOTE, ARGS: 
_end lisp 

EXIT LISP SYSTEM 

R: T=20.62/32.68 19.47.01 
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GLOSSARY 


ATOM: 


A synonym for atomic symbol, the basic constituent of an 
S-expression. 


BYTE: 


A unit of the IBM/360 memory structure. The byte consists of 8 
binary digits (bits) and is one-quarter of an IBM/360 word. 


CODE-BYTE (C-BYTE): 


The first byte of the first line of file LISPTEXT. The 
C-byte is used to store certain codes used by the Supervisor 
to handle the system's special files. (See Section II.B.3.(b)) 


CRASH: 


A term which refers to the abrupt halt in service due to a 
malfunction in a time-sharing system. 


DOUBLET: 


A pair of S-expressions, arguments for the Interpreter function 
EVALQUOTE. 


DUMP: 


The action of copying LISP memory, including the making of 
copies of specific values and files needed to restore the LISP 
system to the state existing at the time of the dump. 


KEYWORD: 


A special word used in the files AUTOLISP and DUMPLISP to Link 
and describe areas of condensed storage. The first 2 bytes of 
the keyword contain the address of the next keyword. The last 

2 bytes contain the number of words of FSTOR which were condensed 
(i.e., the number of adjacent words in the current section of 
FSTOR which contain sequential numbers). A keyword (other than 
the first) is always followed by a word containing the address 

of the first word of the condensed section. (See Section II.B.3. 


(a)). 
OVERLORD: 


The Supervisor of the 7090 LISP system. 
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S-expression: 
Short for SYMBOLIC EXPRESSION, All data and all programs 
written in LISP 1.5 are in the form of S-expressions which 
are made up of either an ATOM, 'A‘, a dotted pair of atoms 
(A.B), or a dotted pair of S-expressions, ((A.B).C). 
S-EXPRESSION DOUBLET: 


See doublet. 
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